home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 38 / Amiga Format CD38 (1999-03-15)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-04].iso / -seriously_amiga- / programming / e / amsp4e / amsp_example3.e < prev    next >
Text File  |  1999-01-25  |  1KB  |  39 lines
  1. /******************************
  2. *******************************
  3. **                           **      Used:
  4. ** example 3 for AmosBobs.m  **
  5. **                           **      - mGetIBPalette
  6. ** Display bobs/icons.       **      - mLoadIB
  7. **                           **      - mEraseIB
  8. ** (C) 1999 By Krzys Cmok    **      - mPasteQuickIB
  9. ** Sun Jan 17 15:19:37 1999  **      - mPasteMaskIB
  10. *******************************      - mPasteIB
  11. ******************************/
  12.  
  13. MODULE '*amosbobs',             /* open module for amos bobs */
  14.     'intuition/screens'    /* open module for screens */
  15.  
  16. PROC main()
  17. DEF databank,s:PTR TO screen          /* definition of datas (databank) and screen (s) */
  18.  
  19. databank:=mLoadIB('willy.abk')        /* load .abk file */
  20.  
  21. s:=OpenS(320,200,4,0,'Example 3');
  22. SetStdRast(s.rastport)
  23.  
  24. mGetIBPalette(databank,s)      /* palette to screen */
  25.  
  26.  
  27. /* now, show three types objects */
  28.  
  29. mPasteQuickIB(s.rastport,databank,30,30,1); TextF(80,40,'1: mPasteQuickIB - instruction');
  30. mPasteMaskIB(s.rastport,databank,30,80,6); TextF(80,90,'6: mPasteMaskIB - instruction');
  31. mPasteIB(s.rastport,databank,30,120,9); TextF(80,130,'9: mPasteIB - instruction');
  32.  
  33. REPEAT ; UNTIL Mouse()=1
  34.  
  35. CloseS(s)
  36. mEraseIB(databank)                    /* clean memory */
  37.  
  38. ENDPROC
  39.